inherited dm_banco_conta: Tdm_banco_conta
  OldCreateOrder = True
  Left = 653
  Top = 215
  inherited sqlConsulta: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'empresa'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '    a.COD_CONTA,'
      '    a.LIG_COD_EMPRESA,'
      '    a.LIG_COD_BANCO,'
      '    a.CONTA_NUMERO,'
      '    a.CONTA_DIGITO,'
      '    a.AGENCIA_CODIGO,'
      '    a.AGENCIA_DIGITO,'
      '    a.CEDENTE_CODIGO,'
      '    a.CEDENTE_DIGITO,'
      '    a.NUM_CARTEIRA_C_REGISTRO,'
      '    a.NUM_CARTEIRA_S_REGISTRO,'
      '    a.NUM_CONVENIO,'
      '    a.TIPO_INSCRICAO,'
      '    a.TIPO_COBRANCA,'
      '    a.TITULAR,'
      '    a.TITULAR_CNPJ_CPF,'
      '    a.BOLETO_INSTRUCAO,'
      '    a.SITUACAO,'
      '    a.DATA_CAD,'
      '    a.DATA_ALTERACAO,'
      '    case'
      '      when a.situacao = '#39'True'#39' then '#39'ATIVO'#39' else '#39'INATIVO'#39
      '    end as situacao_desc,'
      '    case'
      
        '      when a.tipo_inscricao = '#39'tiPessoaFisica'#39' then '#39'FISICO'#39' els' +
        'e '#39'JURIDICO'#39
      '    end as TIPO_INSCRICAO_DESC,'
      '    b.descricao as banco,'
      '    c.descricao_multiempresa as empresa'
      'from BANCO_CONTA a'
      'left join banco b on (b.codigo = a.lig_cod_banco)'
      'left join empresa c on (c.cod_empresa = a.lig_cod_empresa)'
      'where a.lig_cod_empresa = :empresa')
  end
  inherited cdsConsulta: TClientDataSet
    object cdsConsultaCOD_CONTA: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_CONTA'
      Required = True
    end
    object cdsConsultaLIG_COD_EMPRESA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_EMPRESA'
      Required = True
    end
    object cdsConsultaLIG_COD_BANCO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_BANCO'
      Required = True
    end
    object cdsConsultaCONTA_NUMERO: TStringField
      Alignment = taCenter
      FieldName = 'CONTA_NUMERO'
      Required = True
      Size = 15
    end
    object cdsConsultaCONTA_DIGITO: TStringField
      Alignment = taCenter
      FieldName = 'CONTA_DIGITO'
      Required = True
      Size = 5
    end
    object cdsConsultaAGENCIA_CODIGO: TStringField
      Alignment = taCenter
      FieldName = 'AGENCIA_CODIGO'
      Required = True
      Size = 10
    end
    object cdsConsultaAGENCIA_DIGITO: TStringField
      Alignment = taCenter
      FieldName = 'AGENCIA_DIGITO'
      Required = True
      Size = 5
    end
    object cdsConsultaCEDENTE_CODIGO: TStringField
      Alignment = taCenter
      FieldName = 'CEDENTE_CODIGO'
      Required = True
      Size = 15
    end
    object cdsConsultaCEDENTE_DIGITO: TStringField
      Alignment = taCenter
      FieldName = 'CEDENTE_DIGITO'
      Required = True
      Size = 5
    end
    object cdsConsultaNUM_CARTEIRA_C_REGISTRO: TStringField
      Alignment = taCenter
      FieldName = 'NUM_CARTEIRA_C_REGISTRO'
      Size = 5
    end
    object cdsConsultaNUM_CARTEIRA_S_REGISTRO: TStringField
      Alignment = taCenter
      FieldName = 'NUM_CARTEIRA_S_REGISTRO'
      Size = 5
    end
    object cdsConsultaNUM_CONVENIO: TStringField
      Alignment = taCenter
      FieldName = 'NUM_CONVENIO'
      Size = 30
    end
    object cdsConsultaTIPO_INSCRICAO: TStringField
      Alignment = taCenter
      FieldName = 'TIPO_INSCRICAO'
    end
    object cdsConsultaTIPO_COBRANCA: TStringField
      Alignment = taCenter
      FieldName = 'TIPO_COBRANCA'
      Size = 10
    end
    object cdsConsultaTITULAR: TStringField
      FieldName = 'TITULAR'
      Required = True
      Size = 80
    end
    object cdsConsultaTITULAR_CNPJ_CPF: TStringField
      Alignment = taCenter
      FieldName = 'TITULAR_CNPJ_CPF'
      Required = True
    end
    object cdsConsultaBOLETO_INSTRUCAO: TStringField
      FieldName = 'BOLETO_INSTRUCAO'
      Size = 200
    end
    object cdsConsultaSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
    object cdsConsultaDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsConsultaBANCO: TStringField
      FieldName = 'BANCO'
      Size = 100
    end
    object cdsConsultaEMPRESA: TStringField
      FieldName = 'EMPRESA'
      Size = 50
    end
    object cdsConsultaSITUACAO_DESC: TStringField
      Alignment = taCenter
      FieldName = 'SITUACAO_DESC'
      Required = True
      FixedChar = True
      Size = 7
    end
    object cdsConsultaTIPO_INSCRICAO_DESC: TStringField
      Alignment = taCenter
      FieldName = 'TIPO_INSCRICAO_DESC'
      Required = True
      FixedChar = True
      Size = 8
    end
  end
  inherited qryPKChave: TSQLQuery
    SQL.Strings = (
      'SELECT GEN_ID(gen_banco_conta,1)'
      'FROM RDB$DATABASE')
  end
  inherited cdsRegistro: TClientDataSet
    object cdsRegistroCOD_CONTA: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_CONTA'
      Required = True
    end
    object cdsRegistroLIG_COD_EMPRESA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_EMPRESA'
      Required = True
    end
    object cdsRegistroLIG_COD_BANCO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_BANCO'
      Required = True
    end
    object cdsRegistroCONTA_NUMERO: TStringField
      Alignment = taCenter
      FieldName = 'CONTA_NUMERO'
      Required = True
      Size = 15
    end
    object cdsRegistroCONTA_DIGITO: TStringField
      Alignment = taCenter
      FieldName = 'CONTA_DIGITO'
      Size = 5
    end
    object cdsRegistroAGENCIA_CODIGO: TStringField
      Alignment = taCenter
      FieldName = 'AGENCIA_CODIGO'
      Required = True
      Size = 10
    end
    object cdsRegistroAGENCIA_DIGITO: TStringField
      Alignment = taCenter
      FieldName = 'AGENCIA_DIGITO'
      Size = 5
    end
    object cdsRegistroCEDENTE_CODIGO: TStringField
      Alignment = taCenter
      FieldName = 'CEDENTE_CODIGO'
      Required = True
      Size = 15
    end
    object cdsRegistroCEDENTE_DIGITO: TStringField
      Alignment = taCenter
      FieldName = 'CEDENTE_DIGITO'
      Size = 5
    end
    object cdsRegistroNUM_CARTEIRA_C_REGISTRO: TStringField
      Alignment = taCenter
      FieldName = 'NUM_CARTEIRA_C_REGISTRO'
      Size = 5
    end
    object cdsRegistroNUM_CARTEIRA_S_REGISTRO: TStringField
      Alignment = taCenter
      FieldName = 'NUM_CARTEIRA_S_REGISTRO'
      Size = 5
    end
    object cdsRegistroNUM_CONVENIO: TStringField
      Alignment = taCenter
      FieldName = 'NUM_CONVENIO'
      Size = 30
    end
    object cdsRegistroTIPO_INSCRICAO: TStringField
      FieldName = 'TIPO_INSCRICAO'
    end
    object cdsRegistroTIPO_COBRANCA: TStringField
      FieldName = 'TIPO_COBRANCA'
      Size = 10
    end
    object cdsRegistroTITULAR: TStringField
      FieldName = 'TITULAR'
      Required = True
      Size = 80
    end
    object cdsRegistroTITULAR_CNPJ_CPF: TStringField
      Alignment = taCenter
      FieldName = 'TITULAR_CNPJ_CPF'
      Required = True
    end
    object cdsRegistroBOLETO_INSTRUCAO: TStringField
      FieldName = 'BOLETO_INSTRUCAO'
      Size = 200
    end
    object cdsRegistroSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
    object cdsRegistroDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsRegistroDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
  end
  inherited sqlRegistro: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'codigo'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '    a.COD_CONTA,'
      '    a.LIG_COD_EMPRESA,'
      '    a.LIG_COD_BANCO,'
      '    a.CONTA_NUMERO,'
      '    a.CONTA_DIGITO,'
      '    a.AGENCIA_CODIGO,'
      '    a.AGENCIA_DIGITO,'
      '    a.CEDENTE_CODIGO,'
      '    a.CEDENTE_DIGITO,'
      '    a.NUM_CARTEIRA_C_REGISTRO,'
      '    a.NUM_CARTEIRA_S_REGISTRO,'
      '    a.NUM_CONVENIO,'
      '    a.TIPO_INSCRICAO,'
      '    a.TIPO_COBRANCA,'
      '    a.TITULAR,'
      '    a.TITULAR_CNPJ_CPF,'
      '    a.BOLETO_INSTRUCAO,'
      '    a.SITUACAO,'
      '    a.DATA_CAD,'
      '    a.DATA_ALTERACAO'
      'from BANCO_CONTA a'
      'where a.cod_conta = :codigo')
  end
end
